home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 February / Ahoy_Magazine_85-02_1985_Double_L.d64 / telelink 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  64 lines

  1. 10 poke45,0:poke46,19:poke56,21:poke52,21:clr
  2. 20 s=54272:pokes+5,12:pokes+6,0:pokes+24,15:pokes+1,25:pokes,177:poke808,239
  3. 30 sys6390
  4. 40 open2,2,3,chr$(6)
  5. 50 poke251,peek(6154):poke252,peek(6155)
  6. 100 poke54276,0:print"[147]":print"               main menu":print:print
  7. 110 print"1 terminal":print
  8. 120 print"2 search text":print
  9. 130 print"3 save":print
  10. 140 print"4 load":print
  11. 150 print"5 save to printer":print
  12. 155 print"6 buffer":print
  13. 160 print"key digit"
  14. 170 geta$:ifa$<"0"ora$>"6"then170
  15. 190 onval(a$)gosub300,800,400,500,600,700
  16. 200 goto100
  17. 300 print"[147]":poke53272,23:sys6528
  18. 310 print"[147]":poke53272,21:print"have you logged off?"
  19. 320 fora=1to3000:next:return
  20. 400 print"[147]":print:print"              save menu":print:print
  21. 410 print"1 save selected text":print:print"2 save all text":print
  22. 415 print"3 abort this function":print
  23. 420 print"key digit":print
  24. 430 getaa$:ifaa$<"1"oraa$>"3"then430
  25. 440 ifaa$="3"thenreturn
  26. 450 gosub590:open1,a,1,f$
  27. 460 sys-(6240*(aa$="1"))-(5824*(aa$="2"))
  28. 470 close1:return
  29. 500 print"[147]":print:print"              load menu":print:print
  30. 510 print"1 load":print:print"2 abort this function":print
  31. 520 print"key digit":print
  32. 530 geta$:ifa$="2"thenreturn
  33. 540 ifa$<>"1"then530
  34. 550 gosub590:open1,a,0,f$
  35. 560 poke6151,a:sys6291:close1:return
  36. 590 f$="":input"filename";f$
  37. 591 iff$=""thenprint:goto590
  38. 592 print:print"tape or disk?"
  39. 594 geta$:a=1:ifa$="d"thena=8:f$="@0:"+f$:return
  40. 596 ifa$<>"t"then594
  41. 598 return
  42. 600 print"[147]":print:print"             printer menu":print:print
  43. 610 print"1 print all text":print:print"2 print selected text":print
  44. 615 print"3 abort this function":print:print"key digit":print
  45. 620 geta$:ifa$<"1"ora$>"3"then620
  46. 630 print"ok":open4,4:onval(a$)goto650,660,690
  47. 650 fora=6656topeek(251)+peek(252)*256:goto680
  48. 660 fora=peek(6152)+peek(6153)*256topeek(6154)+peek(6155)*256
  49. 680 print#4,chr$(peek(a)and127);:next:print#4
  50. 690 close4:return
  51. 700 print"[147]":print:print"             buffer menu":print:print
  52. 710 print"0 reset buffer":print:print"1 buffer on":print:print"2 buffer off"
  53. 720 print:print"3 abort this function":print:print"key digit":print
  54. 730 geta$:ifa$<"0"ora$>"3"then730
  55. 740 ifa$="0"then780
  56. 750 ifa$="1"thenpoke6150,0:print"buffer on":fora=1to2000:next
  57. 760 ifa$="2"thenpoke6150,1:print"buffer off":fora=1to2000:next
  58. 770 return
  59. 780 poke251,1:poke252,26:poke6152,1:poke6153,26:poke6154,1:poke6155,26
  60. 790 print"buffer reset":fora=1to2000:next:return
  61. 800 print"[147]":print"display buffer":print
  62. 810 sys5377
  63. 820 return
  64.